home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb39134.lsp < prev    next >
Text File  |  1998-03-15  |  1KB  |  38 lines
  1. ;=============391.34 HANDGRIFF PA 80
  2.  
  3. (EAITDBL "0039134")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:39134S1 (/ P1 P0 R Wi)
  8.    (EAITDBL "0039134")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.    (EAITvari)
  11.    (EAITvars)
  12.    (setvar "ORTHOMODE" 0)
  13.    (EAITbpt EAITofmit 2 nil)
  14.    (setq P1 (getpoint))
  15.    (if (= P1 nil)(setq P1 (EAITrpt)))
  16.    (EAITmsg "mb_mld10" "\n" "024" nil)(EAITmsg "mb_mld10" " " "028" " ") ;Versatz: <50>
  17.    (setq R (getreal))
  18.    (if (= R nil)(setq R 50))
  19.    (setvar "ORTHOMODE" 1)
  20.    (setvar "OSMODE" 0)
  21.    (initget 1)
  22.    (EAITmsg "mb_mld10" nil "008" nil)           ;Konstruktionsrichtung
  23.    (setq Wi (getangle P1))
  24.    (setq P0 (polar P1 Wi R))
  25.    (setvar "OSMODE" 0)
  26.    (setvar "ORTHOMODE" 1)
  27.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  28.    (command EAITege (strcat EAITpfn "39134s") P0 "" "" EAITofkei pause)
  29.  
  30.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P0 (+ (EAITbw)(EAITgib 90)) 20) "" "" (EAITbig (EAITbw))
  31.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  32.    )
  33.  
  34.    (EAITvarz2)
  35.    (princ)
  36. )
  37. (princ)
  38.